set proc to sospro
set proc to boxproc
STORE ' ' TO AEANAME,AEAADDR,AEACITY,AEACOUN,AEACURR
STORE .F. TO AEAHEAL,AEADECI
DO START
dr1='N:'
DR2='N:'
SET COLO TO B/B
CLEAR
lim=1

PR=1
DO BOX2 WITH 12,28,"","INDEX ALL","CANCEL",'GR+','RB','GR+','R',PR,.F.,.T.
IF PR=1
   DO INDEB
   DO INDEMED
   DO INDEDISC	
   DO INDECOMP
   DO INDEPHAR
   * DO INDEACT
   DO INDHL
   DO INDPUR
   DO INDDOR
   DO INDSUPP
   do inderat
ENDIF
SET COLO TO
CLEAR
RETURN


